object AddUserForm: TAddUserForm
  Left = 391
  Top = 149
  Width = 567
  Height = 365
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #29992#25143#22686#21152
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox3: TGroupBox
    Left = 0
    Top = 0
    Width = 433
    Height = 338
    Align = alLeft
    Caption = #29992#25143#20449#24687#65306
    TabOrder = 0
    object Label4: TLabel
      Left = 24
      Top = 24
      Width = 70
      Height = 13
      Caption = #29992#25143#36134#21495#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label5: TLabel
      Left = 24
      Top = 52
      Width = 70
      Height = 13
      Caption = #29992#25143#21517#31216#65306
      FocusControl = dbedtAccountName
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label6: TLabel
      Left = 24
      Top = 149
      Width = 70
      Height = 13
      Caption = #36523#20221#35777#21495#65306
      FocusControl = dbedtID
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label7: TLabel
      Left = 24
      Top = 175
      Width = 70
      Height = 13
      Caption = #32852#31995#22320#22336#65306
      FocusControl = dbedtAddr
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label8: TLabel
      Left = 24
      Top = 203
      Width = 70
      Height = 13
      Caption = #39044#35686#37329#39069#65306
      FocusControl = dbedtAlterCash
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label9: TLabel
      Left = 24
      Top = 229
      Width = 70
      Height = 13
      Caption = #32852#31995#30005#35805#65306
      FocusControl = dbedtTel
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label10: TLabel
      Left = 24
      Top = 257
      Width = 70
      Height = 13
      Caption = #20256#30495#21495#30721#65306
      FocusControl = dbedtFax
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label11: TLabel
      Left = 24
      Top = 283
      Width = 56
      Height = 13
      Caption = #36127#36131#20154#65306
      FocusControl = dbedtLinker
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label13: TLabel
      Left = 24
      Top = 309
      Width = 56
      Height = 13
      Caption = #25240#25187#29575#65306
      FocusControl = dbedtRate
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbl1: TLabel
      Left = 24
      Top = 123
      Width = 70
      Height = 13
      Caption = #26377#25928#36335#27573#65306
      FocusControl = dbedtID
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object dbedtAccountName: TDBEdit
      Left = 96
      Top = 48
      Width = 316
      Height = 21
      DataField = 'AccountName'
      DataSource = srcCust
      ImeName = 'Chinese (Simplified) - US Keyboard'
      TabOrder = 1
    end
    object rgUserType: TRadioGroup
      Left = 24
      Top = 77
      Width = 297
      Height = 34
      Caption = #29992#25143#31867#22411#65306
      Columns = 3
      ItemIndex = 0
      Items.Strings = (
        #20813#20132
        #39044#20184
        #36335#27573#21253#20132)
      TabOrder = 2
    end
    object dbedtID: TDBEdit
      Left = 97
      Top = 145
      Width = 316
      Height = 21
      DataField = 'ID'
      DataSource = srcCust
      ImeName = 'Chinese (Simplified) - US Keyboard'
      TabOrder = 4
    end
    object dbedtAddr: TDBEdit
      Left = 97
      Top = 172
      Width = 316
      Height = 21
      DataField = 'Addr'
      DataSource = srcCust
      ImeName = 'Chinese (Simplified) - US Keyboard'
      TabOrder = 5
    end
    object dbedtAlterCash: TDBEdit
      Left = 97
      Top = 199
      Width = 316
      Height = 21
      DataField = 'AlterCash'
      DataSource = srcCust
      ImeName = 'Chinese (Simplified) - US Keyboard'
      TabOrder = 6
    end
    object dbedtTel: TDBEdit
      Left = 97
      Top = 225
      Width = 316
      Height = 21
      DataField = 'Tel'
      DataSource = srcCust
      ImeName = 'Chinese (Simplified) - US Keyboard'
      TabOrder = 7
    end
    object dbedtFax: TDBEdit
      Left = 97
      Top = 252
      Width = 316
      Height = 21
      DataField = 'Fax'
      DataSource = srcCust
      ImeName = 'Chinese (Simplified) - US Keyboard'
      TabOrder = 8
    end
    object dbedtLinker: TDBEdit
      Left = 97
      Top = 279
      Width = 160
      Height = 21
      DataField = 'Custname'
      DataSource = srcCust
      ImeName = 'Chinese (Simplified) - US Keyboard'
      TabOrder = 9
    end
    object dbedtRate: TDBEdit
      Left = 98
      Top = 306
      Width = 134
      Height = 21
      DataField = 'Rate'
      DataSource = srcCust
      ImeName = 'Chinese (Simplified) - US Keyboard'
      TabOrder = 10
    end
    object lcbRoad: TwwDBLookupCombo
      Left = 96
      Top = 120
      Width = 161
      Height = 21
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'ROADFULLNAME'#9'50'#9'ROADFULLNAME'#9#9)
      DataField = 'RoadNo'
      DataSource = srcCust
      LookupTable = tblFreeRoad
      LookupField = 'RoadID'
      DropDownWidth = 161
      ImeName = 'Chinese (Simplified) - US Keyboard'
      TabOrder = 3
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object dbedtAccountNo: TDBEdit
      Left = 96
      Top = 20
      Width = 316
      Height = 21
      DataField = 'AccountNo'
      DataSource = srcCust
      ImeName = 'Chinese (Simplified) - US Keyboard'
      TabOrder = 0
    end
  end
  object btnPost: TButton
    Left = 456
    Top = 40
    Width = 75
    Height = 25
    Caption = #30830#35748
    TabOrder = 1
    OnClick = btnPostClick
  end
  object btnClose: TButton
    Left = 456
    Top = 80
    Width = 75
    Height = 25
    Caption = #36864#20986'(&C)'
    TabOrder = 2
    OnClick = btnCloseClick
  end
  object qryCust: TMSQuery
    Connection = MainForm.connSQL
    SQL.Strings = (
      'select Top 1 * from TS_Account')
    Left = 344
    Top = 72
    object qryCustAccountNo: TIntegerField
      FieldName = 'AccountNo'
      Origin = 'TS_Account.AccountNo'
    end
    object qryCustNetID: TSmallintField
      FieldName = 'NetID'
      Origin = 'TS_Account.NetID'
    end
    object qryCustAccountName: TStringField
      FieldName = 'AccountName'
      Origin = 'TS_Account.AccountName'
      Size = 30
    end
    object qryCustRoadNo: TSmallintField
      FieldName = 'RoadNo'
      Origin = 'TS_Account.RoadNo'
    end
    object qryCustBalance: TFloatField
      FieldName = 'Balance'
      Origin = 'TS_Account.Balance'
      Precision = 12
    end
    object qryCustStatus: TSmallintField
      FieldName = 'Status'
      Origin = 'TS_Account.Status'
    end
    object qryCustAccountType: TSmallintField
      FieldName = 'AccountType'
      Origin = 'TS_Account.AccountType'
    end
    object qryCustAlterCash: TFloatField
      FieldName = 'AlterCash'
      Origin = 'TS_Account.AlterCash'
      Precision = 10
    end
    object qryCustProvID: TSmallintField
      FieldName = 'ProvID'
      Origin = 'TS_Account.ProvID'
    end
    object qryCustOrgType: TSmallintField
      FieldName = 'OrgType'
      Origin = 'TS_Account.OrgType'
    end
    object qryCustOrgCode: TIntegerField
      FieldName = 'OrgCode'
      Origin = 'TS_Account.OrgCode'
    end
    object qryCustCreateTime: TDateTimeField
      FieldName = 'CreateTime'
      Origin = 'TS_Account.CreateTime'
    end
    object qryCustDisuseTime: TDateTimeField
      FieldName = 'DisuseTime'
      Origin = 'TS_Account.DisuseTime'
    end
    object qryCustAddr: TStringField
      FieldName = 'Addr'
      Origin = 'TS_Account.Addr'
      Size = 50
    end
    object qryCustTel: TStringField
      FieldName = 'Tel'
      Origin = 'TS_Account.Tel'
      Size = 30
    end
    object qryCustFax: TStringField
      FieldName = 'Fax'
      Origin = 'TS_Account.Fax'
      Size = 30
    end
    object qryCustIDType: TWordField
      FieldName = 'IDType'
      Origin = 'TS_Account.IDType'
    end
    object qryCustID: TStringField
      FieldName = 'ID'
      Origin = 'TS_Account.ID'
      Size = 30
    end
    object qryCustRate: TFloatField
      FieldName = 'Rate'
      Origin = 'TS_Account.Rate'
      Precision = 10
    end
    object qryCustCustname: TStringField
      FieldName = 'Custname'
      Origin = 'TS_Account.Custname'
      Size = 12
    end
  end
  object tblFreeRoad: TMSTable
    TableName = 'TS_FreeROAD'
    Connection = MainForm.connSQL
    Left = 400
    Top = 64
  end
  object srcCust: TDataSource
    DataSet = qryCust
    Left = 240
    Top = 64
  end
end
